/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / flowchart.sty

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 0a 25 46 72 6f 6d 3a | 20 63 68 61 73 65 40 6f |%.%From:| chase@o|
|00000010| 72 63 2e 6f 6c 69 76 65 | 74 74 69 2e 63 6f 6d 20 |rc.olive|tti.com |
|00000020| 28 44 61 76 69 64 20 43 | 68 61 73 65 29 0a 25 53 |(David C|hase).%S|
|00000030| 75 62 6a 65 63 74 3a 20 | 72 65 3a 20 46 6c 6f 77 |ubject: |re: Flow|
|00000040| 20 63 68 61 72 74 73 20 | 69 6e 20 4c 61 54 65 58 | charts |in LaTeX|
|00000050| 0a 25 44 61 74 65 3a 20 | 4d 6f 6e 2c 20 32 34 20 |.%Date: |Mon, 24 |
|00000060| 4f 63 74 20 38 38 20 31 | 35 3a 33 34 3a 34 32 20 |Oct 88 1|5:34:42 |
|00000070| 2d 30 37 30 30 0a 25 0a | 25 48 65 72 65 20 69 73 |-0700.%.|%Here is|
|00000080| 20 61 20 74 6f 6f 6c 20 | 74 68 61 74 20 6d 69 67 | a tool |that mig|
|00000090| 68 74 20 62 65 20 75 73 | 65 66 75 6c 3b 20 79 6f |ht be us|eful; yo|
|000000a0| 75 20 63 61 6e 20 75 73 | 65 20 69 74 20 74 6f 20 |u can us|e it to |
|000000b0| 67 65 74 20 6c 69 6e 65 | 73 0a 25 77 68 69 63 68 |get line|s.%which|
|000000c0| 20 62 65 6e 64 20 28 39 | 30 20 64 65 67 72 65 65 | bend (9|0 degree|
|000000d0| 73 29 20 65 6e 64 69 6e | 67 20 69 6e 20 61 72 72 |s) endin|g in arr|
|000000e0| 6f 77 73 2c 20 61 6e 64 | 20 79 6f 75 20 63 61 6e |ows, and| you can|
|000000f0| 20 73 74 75 64 79 20 69 | 74 20 28 68 61 20 68 61 | study i|t (ha ha|
|00000100| 29 0a 25 74 6f 20 66 69 | 67 75 72 65 20 6f 75 74 |).%to fi|gure out|
|00000110| 20 68 6f 77 20 69 74 20 | 6d 69 67 68 74 20 62 65 | how it |might be|
|00000120| 20 65 78 74 65 6e 64 65 | 64 20 74 6f 20 64 6f 20 | extende|d to do |
|00000130| 61 20 66 6c 6f 77 20 63 | 68 61 72 74 2e 0a 25 49 |a flow c|hart..%I|
|00000140| 74 20 69 73 20 69 6e 63 | 6c 75 64 65 64 20 77 69 |t is inc|luded wi|
|00000150| 74 68 69 6e 20 61 20 70 | 72 6f 67 72 61 6d 20 74 |thin a p|rogram t|
|00000160| 6f 20 74 65 73 74 20 64 | 65 6d 6f 6e 73 74 72 61 |o test d|emonstra|
|00000170| 74 65 20 69 74 2e 20 20 | 49 74 20 75 73 65 73 20 |te it.  |It uses |
|00000180| 6f 6e 6c 79 0a 25 74 68 | 65 20 4c 61 54 65 58 20 |only.%th|e LaTeX |
|00000190| 70 69 63 74 75 72 65 20 | 6d 61 63 72 6f 73 20 66 |picture |macros f|
|000001a0| 6f 72 20 67 72 61 70 68 | 69 63 73 2e 0a 25 0a 25 |or graph|ics..%.%|
|000001b0| 4e 6f 74 65 20 74 68 65 | 20 75 73 65 20 6f 66 20 |Note the| use of |
|000001c0| 64 69 72 74 79 20 74 72 | 69 63 6b 73 20 74 6f 20 |dirty tr|icks to |
|000001d0| 74 75 72 6e 20 70 6f 69 | 6e 74 73 20 69 6e 74 6f |turn poi|nts into|
|000001e0| 20 64 69 6d 65 6e 73 69 | 6f 6e 6c 65 73 73 0a 25 | dimensi|onless.%|
|000001f0| 6e 75 6d 62 65 72 73 2e | 20 20 54 68 65 72 65 20 |numbers.|  There |
|00000200| 6d 61 79 20 62 65 20 61 | 20 62 65 74 74 65 72 20 |may be a| better |
|00000210| 77 61 79 2c 20 62 75 74 | 20 49 20 63 6f 75 6c 64 |way, but| I could|
|00000220| 6e 27 74 20 66 69 6e 64 | 20 69 74 2e 20 20 4d 79 |n't find| it.  My|
|00000230| 0a 25 64 69 66 66 69 63 | 75 6c 74 69 65 73 20 77 |.%diffic|ulties w|
|00000240| 69 74 68 20 74 68 69 73 | 20 6c 65 61 64 20 6d 65 |ith this| lead me|
|00000250| 20 74 6f 20 62 65 6c 69 | 65 76 65 20 74 68 61 74 | to beli|eve that|
|00000260| 20 65 69 74 68 65 72 0a | 25 28 31 29 20 54 65 58 | either.|%(1) TeX|
|00000270| 20 73 68 6f 75 6c 64 20 | 72 65 61 6c 6c 79 20 70 | should |really p|
|00000280| 72 6f 76 69 64 65 20 64 | 69 6d 65 6e 73 69 6f 6e |rovide d|imension|
|00000290| 6c 65 73 73 20 72 65 61 | 6c 20 6e 75 6d 62 65 72 |less rea|l number|
|000002a0| 73 0a 25 6f 72 0a 25 28 | 32 29 20 4d 61 79 62 65 |s.%or.%(|2) Maybe|
|000002b0| 20 4c 61 54 65 58 20 73 | 68 6f 75 6c 64 20 75 73 | LaTeX s|hould us|
|000002c0| 65 20 72 65 61 6c 20 6c | 65 6e 67 74 68 73 20 69 |e real l|engths i|
|000002d0| 6e 73 74 65 61 64 20 6f | 66 20 64 69 6d 65 6e 73 |nstead o|f dimens|
|000002e0| 69 6f 6e 6c 65 73 73 0a | 25 6e 75 6d 62 65 72 73 |ionless.|%numbers|
|000002f0| 20 69 6e 20 74 68 65 20 | 70 69 63 74 75 72 65 20 | in the |picture |
|00000300| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 2e 20 20 49 20 |environm|ent.  I |
|00000310| 6d 69 67 68 74 20 67 65 | 74 20 74 69 72 65 64 20 |might ge|t tired |
|00000320| 6f 66 20 61 6c 77 61 79 | 73 0a 25 61 74 74 61 63 |of alway|s.%attac|
|00000330| 68 69 6e 67 20 61 20 64 | 69 6d 65 6e 73 69 6f 6e |hing a d|imension|
|00000340| 20 74 6f 20 74 68 69 6e | 67 73 2c 20 62 75 74 20 | to thin|gs, but |
|00000350| 69 74 20 77 6f 75 6c 64 | 20 62 65 20 4c 4f 54 53 |it would| be LOTS|
|00000360| 20 65 61 73 69 65 72 20 | 74 6f 20 77 72 69 74 65 | easier |to write|
|00000370| 0a 25 69 6e 74 65 72 65 | 73 74 69 6e 67 20 6d 61 |.%intere|sting ma|
|00000380| 63 72 6f 73 2e 0a 25 0a | 25 49 66 20 61 6e 79 6f |cros..%.|%If anyo|
|00000390| 6e 65 20 63 61 6e 20 70 | 6f 69 6e 74 20 6f 75 74 |ne can p|oint out|
|000003a0| 20 74 6f 20 6d 65 20 61 | 6e 20 65 61 73 69 65 72 | to me a|n easier|
|000003b0| 20 77 61 79 20 74 6f 20 | 64 6f 20 74 68 69 73 2c | way to |do this,|
|000003c0| 20 49 27 64 20 62 65 20 | 68 61 70 70 79 0a 25 74 | I'd be |happy.%t|
|000003d0| 6f 20 68 65 61 72 20 69 | 74 2e 20 20 50 65 6f 70 |o hear i|t.  Peop|
|000003e0| 6c 65 20 6f 6e 20 54 65 | 58 68 61 78 20 74 72 69 |le on Te|Xhax tri|
|000003f0| 65 64 20 74 6f 20 68 65 | 6c 70 20 6d 65 20 61 20 |ed to he|lp me a |
|00000400| 63 6f 75 70 6c 65 20 6f | 66 20 79 65 61 72 73 20 |couple o|f years |
|00000410| 61 67 6f 0a 25 77 69 74 | 68 20 74 68 69 73 2c 20 |ago.%wit|h this, |
|00000420| 62 75 74 20 6e 6f 74 68 | 69 6e 67 20 73 65 65 6d |but noth|ing seem|
|00000430| 65 64 20 74 6f 20 77 6f | 72 6b 2e 0a 25 0a 25 2d |ed to wo|rk..%.%-|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00000450| 42 45 47 49 4e 4e 49 4e | 47 20 4f 46 20 4d 41 43 |BEGINNIN|G OF MAC|
|00000460| 52 4f 53 20 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ROS  ---|--------|
|00000470| 2d 2d 2d 2d 2d 0a 25 20 | 46 69 72 73 74 2c 20 61 |-----.% |First, a|
|00000480| 20 64 69 72 74 79 20 74 | 72 69 63 6b 0a 0a 7b 5c | dirty t|rick..{\|
|00000490| 63 61 74 63 6f 64 65 60 | 70 3d 31 32 20 5c 63 61 |catcode`|p=12 \ca|
|000004a0| 74 63 6f 64 65 60 74 3d | 31 32 20 5c 67 64 65 66 |tcode`t=|12 \gdef|
|000004b0| 5c 62 6f 67 75 73 6d 61 | 63 72 6f 23 31 70 74 7b |\bogusma|cro#1pt{|
|000004c0| 23 31 7d 7d 0a 5c 6c 65 | 74 5c 67 65 74 66 61 63 |#1}}.\le|t\getfac|
|000004d0| 74 6f 72 3d 5c 62 6f 67 | 75 73 6d 61 63 72 6f 0a |tor=\bog|usmacro.|
|000004e0| 5c 64 65 66 5c 75 6e 70 | 74 23 31 7b 5c 65 78 70 |\def\unp|t#1{\exp|
|000004f0| 61 6e 64 61 66 74 65 72 | 5c 67 65 74 66 61 63 74 |andafter|\getfact|
|00000500| 6f 72 5c 74 68 65 23 31 | 7d 0a 0a 25 20 41 20 6d |or\the#1|}..% A m|
|00000510| 61 63 72 6f 20 74 6f 20 | 67 65 74 20 75 73 20 6f |acro to |get us o|
|00000520| 75 74 20 6f 66 20 74 68 | 65 20 69 74 65 72 61 74 |ut of th|e iterat|
|00000530| 69 6f 6e 2e 0a 0a 5c 64 | 65 66 5c 67 6f 62 62 6c |ion...\d|ef\gobbl|
|00000540| 65 65 6d 75 70 23 31 2c | 23 32 2c 23 33 2c 7b 7d |eemup#1,|#2,#3,{}|
|00000550| 0a 0a 25 20 54 57 41 49 | 20 64 6f 65 73 20 61 6c |..% TWAI| does al|
|00000560| 6c 20 74 68 65 20 77 6f | 72 6b 2c 20 61 6e 64 20 |l the wo|rk, and |
|00000570| 63 6f 75 6c 64 20 70 72 | 6f 62 61 62 6c 79 20 62 |could pr|obably b|
|00000580| 65 20 72 65 77 72 69 74 | 74 65 6e 0a 25 20 74 6f |e rewrit|ten.% to|
|00000590| 20 62 65 20 6d 75 63 68 | 20 70 72 65 74 74 69 65 | be much| prettie|
|000005a0| 72 2e 0a 0a 5c 64 65 66 | 5c 74 77 61 69 23 31 2c |r...\def|\twai#1,|
|000005b0| 23 32 2c 23 33 2c 23 34 | 2c 23 35 2c 7b 0a 25 09 |#2,#3,#4|,#5,{.%.|
|000005c0| 5c 74 79 70 65 6f 75 74 | 7b 54 77 69 73 74 79 20 |\typeout|{Twisty |
|000005d0| 61 72 72 6f 77 20 69 6e | 63 72 65 6d 65 6e 74 20 |arrow in|crement |
|000005e0| 6f 66 20 7c 23 31 7c 20 | 7c 23 32 7c 20 7c 23 33 |of |#1| ||#2| |#3|
|000005f0| 7c 20 7c 23 34 7c 20 7c | 23 35 7c 7d 0a 0a 25 20 || |#4| ||#5|}..% |
|00000600| 54 75 72 6e 20 70 61 72 | 61 6d 65 74 65 72 73 20 |Turn par|ameters |
|00000610| 69 6e 74 6f 20 50 54 20 | 71 75 61 6e 74 69 74 69 |into PT |quantiti|
|00000620| 65 73 20 73 6f 20 77 65 | 20 63 61 6e 20 64 6f 20 |es so we| can do |
|00000630| 73 69 6d 70 6c 65 20 61 | 72 69 74 68 6d 65 74 69 |simple a|rithmeti|
|00000640| 63 2e 0a 09 5c 78 63 6f | 23 31 70 74 5c 72 65 6c |c...\xco|#1pt\rel|
|00000650| 61 78 0a 09 5c 79 63 6f | 23 32 70 74 5c 72 65 6c |ax..\yco|#2pt\rel|
|00000660| 61 78 0a 09 5c 6c 65 6e | 23 34 70 74 5c 72 65 6c |ax..\len|#4pt\rel|
|00000670| 61 78 0a 09 5c 61 64 76 | 61 6e 63 65 5c 6c 65 6e |ax..\adv|ance\len|
|00000680| 20 2d 5c 66 69 72 73 74 | 73 68 72 69 6e 6b 5c 72 | -\first|shrink\r|
|00000690| 65 6c 61 78 0a 25 20 57 | 65 20 67 65 74 20 5c 74 |elax.% W|e get \t|
|000006a0| 61 6f 76 61 6c 20 64 79 | 6e 61 6d 69 63 61 6c 6c |aoval dy|namicall|
|000006b0| 79 20 66 72 6f 6d 20 6f | 75 72 20 63 61 6c 6c 65 |y from o|ur calle|
|000006c0| 72 0a 09 5c 64 65 66 5c | 66 69 72 73 74 73 68 72 |r..\def\|firstshr|
|000006d0| 69 6e 6b 7b 5c 74 61 6f | 76 61 6c 20 70 74 7d 5c |ink{\tao|val pt}\|
|000006e0| 72 65 6c 61 78 0a 25 20 | 53 65 74 20 74 68 69 6e |relax.% |Set thin|
|000006f0| 67 73 20 75 70 20 66 6f | 72 20 73 65 6c 65 63 74 |gs up fo|r select|
|00000700| 69 6f 6e 20 61 6e 64 20 | 69 74 65 72 61 74 69 6f |ion and |iteratio|
|00000710| 6e 0a 09 5c 6c 65 74 5c | 64 72 61 77 63 6f 6d 6d |n..\let\|drawcomm|
|00000720| 61 6e 64 3d 5c 6c 69 6e | 65 0a 09 5c 64 65 66 5c |and=\lin|e..\def\|
|00000730| 74 68 69 73 7b 23 33 7d | 0a 09 5c 64 65 66 5c 78 |this{#3}|..\def\x|
|00000740| 76 65 63 7b 30 7d 0a 09 | 5c 64 65 66 5c 79 76 65 |vec{0}..|\def\yve|
|00000750| 63 7b 30 7d 0a 09 5c 6c | 65 74 5c 6e 65 78 74 3d |c{0}..\l|et\next=|
|00000760| 5c 74 77 61 69 0a 25 20 | 46 69 67 75 72 65 20 6f |\twai.% |Figure o|
|00000770| 75 74 20 77 68 69 63 68 | 20 77 61 79 20 77 65 27 |ut which| way we'|
|00000780| 72 65 20 67 6f 69 6e 67 | 20 6e 6f 77 0a 09 5c 69 |re going| now..\i|
|00000790| 66 5c 74 68 69 73 5c 75 | 75 0a 09 09 5c 61 64 64 |f\this\u|u...\add|
|000007a0| 74 6f 6c 65 6e 67 74 68 | 7b 5c 79 6c 6f 63 7d 7b |tolength|{\yloc}{|
|000007b0| 5c 6c 65 6e 7d 0a 09 09 | 5c 64 65 66 5c 79 76 65 |\len}...|\def\yve|
|000007c0| 63 7b 31 7d 0a 09 09 5c | 63 6f 72 6e 65 72 3d 30 |c{1}...\|corner=0|
|000007d0| 0a 09 09 5c 65 6c 73 65 | 0a 09 5c 69 66 5c 74 68 |...\else|..\if\th|
|000007e0| 69 73 5c 64 64 0a 09 09 | 5c 61 64 64 74 6f 6c 65 |is\dd...|\addtole|
|000007f0| 6e 67 74 68 7b 5c 79 6c | 6f 63 7d 7b 2d 5c 6c 65 |ngth{\yl|oc}{-\le|
|00000800| 6e 7d 0a 09 09 5c 64 65 | 66 5c 79 76 65 63 7b 2d |n}...\de|f\yvec{-|
|00000810| 31 7d 0a 09 09 5c 63 6f | 72 6e 65 72 3d 31 0a 09 |1}...\co|rner=1..|
|00000820| 09 5c 65 6c 73 65 0a 09 | 5c 69 66 5c 74 68 69 73 |.\else..|\if\this|
|00000830| 5c 6c 6c 0a 09 09 5c 61 | 64 64 74 6f 6c 65 6e 67 |\ll...\a|ddtoleng|
|00000840| 74 68 7b 5c 78 6c 6f 63 | 7d 7b 2d 5c 6c 65 6e 7d |th{\xloc|}{-\len}|
|00000850| 0a 09 09 5c 64 65 66 5c | 78 76 65 63 7b 2d 31 7d |...\def\|xvec{-1}|
|00000860| 0a 09 09 5c 63 6f 72 6e | 65 72 3d 30 0a 09 09 5c |...\corn|er=0...\|
|00000870| 65 6c 73 65 0a 09 5c 69 | 66 5c 74 68 69 73 5c 72 |else..\i|f\this\r|
|00000880| 72 0a 09 09 5c 61 64 64 | 74 6f 6c 65 6e 67 74 68 |r...\add|tolength|
|00000890| 7b 5c 78 6c 6f 63 7d 7b | 5c 6c 65 6e 7d 0a 09 09 |{\xloc}{|\len}...|
|000008a0| 5c 64 65 66 5c 78 76 65 | 63 7b 31 7d 0a 09 09 5c |\def\xve|c{1}...\|
|000008b0| 63 6f 72 6e 65 72 3d 32 | 0a 09 09 5c 65 6c 73 65 |corner=2|...\else|
|000008c0| 0a 09 5c 69 66 5c 74 68 | 69 73 5c 65 65 0a 09 09 |..\if\th|is\ee...|
|000008d0| 5c 72 65 6c 61 78 0a 09 | 09 5c 65 6c 73 65 0a 09 |\relax..|.\else..|
|000008e0| 09 5c 74 79 70 65 6f 75 | 74 7b 54 77 69 73 74 79 |.\typeou|t{Twisty|
|000008f0| 20 41 72 72 6f 77 20 49 | 6e 63 72 65 6d 65 6e 74 | Arrow I|ncrement|
|00000900| 2d 2d 61 72 67 20 32 20 | 28 5c 74 68 69 73 29 20 |--arg 2 |(\this) |
|00000910| 6e 6f 74 20 6f 6e 65 20 | 6f 66 20 7b 75 64 6c 72 |not one |of {udlr|
|00000920| 65 7d 7d 0a 09 5c 66 69 | 5c 66 69 5c 66 69 5c 66 |e}}..\fi|\fi\fi\f|
|00000930| 69 5c 66 69 0a 20 20 20 | 20 20 20 20 20 5c 69 66 |i\fi.   |     \if|
|00000940| 23 35 5c 65 65 0a 25 09 | 09 5c 74 79 70 65 6f 75 |#5\ee.%.|.\typeou|
|00000950| 74 7b 45 6e 64 69 6e 67 | 20 76 65 63 74 6f 72 7d |t{Ending| vector}|
|00000960| 0a 09 09 5c 6c 65 74 5c | 64 72 61 77 63 6f 6d 6d |...\let\|drawcomm|
|00000970| 61 6e 64 3d 5c 74 77 61 | 69 65 6e 64 0a 09 09 5c |and=\twa|iend...\|
|00000980| 61 64 76 61 6e 63 65 5c | 6c 65 6e 5c 74 61 72 61 |advance\|len\tara|
|00000990| 64 0a 09 5c 66 69 0a 25 | 20 20 20 20 20 20 20 20 |d..\fi.%|        |
|000009a0| 5c 74 79 70 65 6f 75 74 | 7b 4e 65 77 20 58 4c 20 |\typeout|{New XL |
|000009b0| 5c 75 6e 70 74 5c 78 6c | 6f 63 5c 73 70 61 63 65 |\unpt\xl|oc\space|
|000009c0| 20 59 4c 20 5c 75 6e 70 | 74 5c 79 6c 6f 63 7d 0a | YL \unp|t\yloc}.|
|000009d0| 25 20 48 65 72 65 20 77 | 65 20 65 6d 69 74 20 74 |% Here w|e emit t|
|000009e0| 68 65 20 6c 69 6e 65 20 | 6f 72 20 65 6e 64 69 6e |he line |or endin|
|000009f0| 67 20 63 6f 6d 6d 61 6e | 64 0a 09 5c 70 75 74 28 |g comman|d..\put(|
|00000a00| 5c 75 6e 70 74 5c 78 63 | 6f 2c 5c 75 6e 70 74 5c |\unpt\xc|o,\unpt\|
|00000a10| 79 63 6f 29 7b 5c 64 72 | 61 77 63 6f 6d 6d 61 6e |yco){\dr|awcomman|
|00000a20| 64 28 5c 78 76 65 63 2c | 5c 79 76 65 63 29 7b 5c |d(\xvec,|\yvec){\|
|00000a30| 75 6e 70 74 5c 6c 65 6e | 7d 7d 0a 09 25 20 46 69 |unpt\len|}}..% Fi|
|00000a40| 67 75 72 65 20 6f 75 74 | 20 74 68 65 20 6e 65 78 |gure out| the nex|
|00000a50| 74 20 6c 69 6e 65 0a 09 | 5c 69 66 23 35 5c 75 75 |t line..|\if#5\uu|
|00000a60| 0a 09 09 5c 61 64 76 61 | 6e 63 65 5c 79 6c 6f 63 |...\adva|nce\yloc|
|00000a70| 20 5c 74 61 72 61 64 0a | 09 09 5c 61 64 76 61 6e | \tarad.|..\advan|
|00000a80| 63 65 5c 63 6f 72 6e 65 | 72 20 31 0a 09 09 5c 65 |ce\corne|r 1...\e|
|00000a90| 6c 73 65 0a 09 5c 69 66 | 23 35 5c 64 64 0a 09 09 |lse..\if|#5\dd...|
|00000aa0| 5c 61 64 76 61 6e 63 65 | 5c 79 6c 6f 63 20 2d 5c |\advance|\yloc -\|
|00000ab0| 74 61 72 61 64 0a 09 09 | 5c 61 64 76 61 6e 63 65 |tarad...|\advance|
|00000ac0| 5c 63 6f 72 6e 65 72 20 | 30 0a 09 09 5c 65 6c 73 |\corner |0...\els|
|00000ad0| 65 0a 09 5c 69 66 23 35 | 5c 6c 6c 0a 09 09 5c 61 |e..\if#5|\ll...\a|
|00000ae0| 64 76 61 6e 63 65 5c 78 | 6c 6f 63 20 2d 5c 74 61 |dvance\x|loc -\ta|
|00000af0| 72 61 64 0a 09 09 5c 61 | 64 76 61 6e 63 65 5c 63 |rad...\a|dvance\c|
|00000b00| 6f 72 6e 65 72 20 32 0a | 09 09 5c 65 6c 73 65 0a |orner 2.|..\else.|
|00000b10| 09 5c 69 66 23 35 5c 72 | 72 0a 09 09 5c 61 64 76 |.\if#5\r|r...\adv|
|00000b20| 61 6e 63 65 5c 78 6c 6f | 63 20 5c 74 61 72 61 64 |ance\xlo|c \tarad|
|00000b30| 0a 09 09 5c 61 64 76 61 | 6e 63 65 5c 63 6f 72 6e |...\adva|nce\corn|
|00000b40| 65 72 20 30 0a 09 09 5c | 65 6c 73 65 0a 09 5c 69 |er 0...\|else..\i|
|00000b50| 66 23 35 5c 65 65 0a 09 | 09 5c 6c 65 74 5c 6e 65 |f#5\ee..|.\let\ne|
|00000b60| 78 74 3d 5c 67 6f 62 62 | 6c 65 65 6d 75 70 0a 20 |xt=\gobb|leemup. |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 5c |        |       \|
|00000b80| 63 6f 72 6e 65 72 3d 34 | 0a 09 09 5c 65 6c 73 65 |corner=4|...\else|
|00000b90| 0a 09 74 79 70 65 6f 75 | 74 7b 54 77 69 73 74 79 |..typeou|t{Twisty|
|00000ba0| 20 41 72 72 6f 77 20 49 | 6e 63 72 65 6d 65 6e 74 | Arrow I|ncrement|
|00000bb0| 2d 2d 61 72 67 20 35 20 | 28 23 35 29 20 6e 6f 74 |--arg 5 |(#5) not|
|00000bc0| 20 6f 6e 65 20 6f 66 20 | 7b 75 64 6c 72 65 7d 7d | one of |{udlre}}|
|00000bd0| 0a 09 5c 66 69 5c 66 69 | 5c 66 69 5c 66 69 5c 66 |..\fi\fi|\fi\fi\f|
|00000be0| 69 0a 25 20 20 20 20 20 | 20 20 5c 74 79 70 65 6f |i.%     |  \typeo|
|00000bf0| 75 74 7b 43 6f 72 6e 65 | 72 20 63 65 6e 74 65 72 |ut{Corne|r center|
|00000c00| 20 58 4c 20 5c 75 6e 70 | 74 5c 78 6c 6f 63 5c 73 | XL \unp|t\xloc\s|
|00000c10| 70 61 63 65 20 59 4c 20 | 5c 75 6e 70 74 5c 79 6c |pace YL |\unpt\yl|
|00000c20| 6f 63 7d 0a 09 5c 69 66 | 63 61 73 65 5c 63 6f 72 |oc}..\if|case\cor|
|00000c30| 6e 65 72 0a 09 09 25 20 | 63 61 73 65 20 30 20 54 |ner...% |case 0 T|
|00000c40| 4c 0a 09 09 5c 70 75 74 | 28 5c 75 6e 70 74 5c 78 |L...\put|(\unpt\x|
|00000c50| 6c 6f 63 2c 5c 75 6e 70 | 74 5c 79 6c 6f 63 29 7b |loc,\unp|t\yloc){|
|00000c60| 5c 6f 76 61 6c 28 5c 74 | 61 6f 76 61 6c 2c 5c 74 |\oval(\t|aoval,\t|
|00000c70| 61 6f 76 61 6c 29 5b 74 | 6c 5d 7d 0a 09 09 5c 6f |aoval)[t|l]}...\o|
|00000c80| 72 0a 09 09 25 20 63 61 | 73 65 20 31 20 42 4c 0a |r...% ca|se 1 BL.|
|00000c90| 09 09 5c 70 75 74 28 5c | 75 6e 70 74 5c 78 6c 6f |..\put(\|unpt\xlo|
|00000ca0| 63 2c 5c 75 6e 70 74 5c | 79 6c 6f 63 29 7b 5c 6f |c,\unpt\|yloc){\o|
|00000cb0| 76 61 6c 28 5c 74 61 6f | 76 61 6c 2c 5c 74 61 6f |val(\tao|val,\tao|
|00000cc0| 76 61 6c 29 5b 62 6c 5d | 7d 0a 09 09 5c 6f 72 0a |val)[bl]|}...\or.|
|00000cd0| 09 09 25 20 63 61 73 65 | 20 32 20 54 52 0a 09 09 |..% case| 2 TR...|
|00000ce0| 5c 70 75 74 28 5c 75 6e | 70 74 5c 78 6c 6f 63 2c |\put(\un|pt\xloc,|
|00000cf0| 5c 75 6e 70 74 5c 79 6c | 6f 63 29 7b 5c 6f 76 61 |\unpt\yl|oc){\ova|
|00000d00| 6c 28 5c 74 61 6f 76 61 | 6c 2c 5c 74 61 6f 76 61 |l(\taova|l,\taova|
|00000d10| 6c 29 5b 74 72 5d 7d 0a | 09 09 5c 6f 72 0a 09 09 |l)[tr]}.|..\or...|
|00000d20| 25 20 63 61 73 65 20 33 | 20 42 52 0a 09 09 5c 70 |% case 3| BR...\p|
|00000d30| 75 74 28 5c 75 6e 70 74 | 5c 78 6c 6f 63 2c 5c 75 |ut(\unpt|\xloc,\u|
|00000d40| 6e 70 74 5c 79 6c 6f 63 | 29 7b 5c 6f 76 61 6c 28 |npt\yloc|){\oval(|
|00000d50| 5c 74 61 6f 76 61 6c 2c | 5c 74 61 6f 76 61 6c 29 |\taoval,|\taoval)|
|00000d60| 5b 62 72 5d 7d 0a 09 09 | 5c 6f 72 0a 09 09 25 20 |[br]}...|\or...% |
|00000d70| 63 61 73 65 20 34 20 45 | 4e 44 0a 09 09 5c 72 65 |case 4 E|ND...\re|
|00000d80| 6c 61 78 0a 09 09 5c 66 | 69 0a 09 5c 61 64 76 61 |lax...\f|i..\adva|
|00000d90| 6e 63 65 5c 78 6c 6f 63 | 20 5c 78 76 65 63 5c 74 |nce\xloc| \xvec\t|
|00000da0| 61 72 61 64 0a 09 5c 61 | 64 76 61 6e 63 65 5c 79 |arad..\a|dvance\y|
|00000db0| 6c 6f 63 20 5c 79 76 65 | 63 5c 74 61 72 61 64 0a |loc \yve|c\tarad.|
|00000dc0| 25 20 20 20 20 20 20 20 | 20 5c 74 79 70 65 6f 75 |%       | \typeou|
|00000dd0| 74 7b 46 69 6e 61 6c 20 | 58 4c 20 5c 75 6e 70 74 |t{Final |XL \unpt|
|00000de0| 5c 78 6c 6f 63 5c 73 70 | 61 63 65 20 59 4c 20 5c |\xloc\sp|ace YL \|
|00000df0| 75 6e 70 74 5c 79 6c 6f | 63 7d 0a 25 20 69 74 65 |unpt\ylo|c}.% ite|
|00000e00| 72 61 74 65 20 6f 72 20 | 66 69 6e 69 73 68 2c 20 |rate or |finish, |
|00000e10| 64 65 70 65 6e 64 69 6e | 67 20 75 70 6f 6e 20 76 |dependin|g upon v|
|00000e20| 61 6c 75 65 20 6f 66 20 | 27 6e 65 78 74 27 0a 09 |alue of |'next'..|
|00000e30| 5c 6e 65 78 74 5c 75 6e | 70 74 5c 78 6c 6f 63 2c |\next\un|pt\xloc,|
|00000e40| 5c 75 6e 70 74 5c 79 6c | 6f 63 2c 23 35 2c 0a 09 |\unpt\yl|oc,#5,..|
|00000e50| 7d 0a 5c 64 65 66 5c 74 | 77 69 73 74 79 61 72 72 |}.\def\t|wistyarr|
|00000e60| 6f 77 67 65 6e 28 23 31 | 2c 23 32 2c 23 33 2c 23 |owgen(#1|,#2,#3,#|
|00000e70| 34 29 23 35 7b 7b 0a 09 | 5c 64 65 66 5c 75 75 7b |4)#5{{..|\def\uu{|
|00000e80| 75 7d 0a 09 5c 64 65 66 | 5c 64 64 7b 64 7d 0a 09 |u}..\def|\dd{d}..|
|00000e90| 5c 64 65 66 5c 6c 6c 7b | 6c 7d 0a 09 5c 64 65 66 |\def\ll{|l}..\def|
|00000ea0| 5c 72 72 7b 72 7d 0a 09 | 5c 64 65 66 5c 65 65 7b |\rr{r}..|\def\ee{|
|00000eb0| 65 7d 0a 09 5c 63 6f 75 | 6e 74 64 65 66 5c 63 6f |e}..\cou|ntdef\co|
|00000ec0| 72 6e 65 72 3d 32 35 35 | 0a 09 5c 6e 65 77 73 6b |rner=255|..\newsk|
|00000ed0| 69 70 7b 5c 78 63 6f 7d | 5c 6e 65 77 73 6b 69 70 |ip{\xco}|\newskip|
|00000ee0| 7b 5c 79 63 6f 7d 5c 6e | 65 77 73 6b 69 70 7b 5c |{\yco}\n|ewskip{\|
|00000ef0| 6c 65 6e 7d 0a 09 5c 6e | 65 77 73 6b 69 70 7b 5c |len}..\n|ewskip{\|
|00000f00| 78 6c 6f 63 7d 5c 6e 65 | 77 73 6b 69 70 7b 5c 79 |xloc}\ne|wskip{\y|
|00000f10| 6c 6f 63 7d 0a 09 5c 6e | 65 77 73 6b 69 70 7b 5c |loc}..\n|ewskip{\|
|00000f20| 74 61 72 61 64 7d 5c 73 | 65 74 6c 65 6e 67 74 68 |tarad}\s|etlength|
|00000f30| 7b 5c 74 61 72 61 64 7d | 7b 23 33 70 74 7d 0a 09 |{\tarad}|{#3pt}..|
|00000f40| 5c 6e 65 77 73 6b 69 70 | 7b 5c 64 75 6d 6d 79 6c |\newskip|{\dummyl|
|00000f50| 65 6e 7d 0a 09 5c 6c 65 | 74 5c 74 77 61 69 65 6e |en}..\le|t\twaien|
|00000f60| 64 3d 23 34 0a 09 5c 73 | 65 74 6c 65 6e 67 74 68 |d=#4..\s|etlength|
|00000f70| 7b 5c 64 75 6d 6d 79 6c | 65 6e 7d 7b 5c 74 61 72 |{\dummyl|en}{\tar|
|00000f80| 61 64 7d 0a 09 5c 61 64 | 76 61 6e 63 65 5c 64 75 |ad}..\ad|vance\du|
|00000f90| 6d 6d 79 6c 65 6e 20 5c | 64 75 6d 6d 79 6c 65 6e |mmylen \|dummylen|
|00000fa0| 0a 09 5c 64 65 66 5c 74 | 61 6f 76 61 6c 7b 5c 75 |..\def\t|aoval{\u|
|00000fb0| 6e 70 74 5c 64 75 6d 6d | 79 6c 65 6e 7d 0a 09 5c |npt\dumm|ylen}..\|
|00000fc0| 73 65 74 6c 65 6e 67 74 | 68 7b 5c 78 6c 6f 63 7d |setlengt|h{\xloc}|
|00000fd0| 7b 23 31 70 74 7d 5c 73 | 65 74 6c 65 6e 67 74 68 |{#1pt}\s|etlength|
|00000fe0| 7b 5c 79 6c 6f 63 7d 7b | 23 32 70 74 7d 0a 09 5c |{\yloc}{|#2pt}..\|
|00000ff0| 64 65 66 5c 66 69 72 73 | 74 73 68 72 69 6e 6b 7b |def\firs|tshrink{|
|00001000| 5c 74 61 72 61 64 7d 5c | 72 65 6c 61 78 0a 09 5c |\tarad}\|relax..\|
|00001010| 74 77 61 69 20 23 31 2c | 23 32 2c 23 35 2c 65 2c |twai #1,|#2,#5,e,|
|00001020| 7d 7d 0a 25 0a 5c 64 65 | 66 5c 74 77 69 73 74 79 |}}.%.\de|f\twisty|
|00001030| 61 72 72 6f 77 28 23 31 | 2c 23 32 29 7b 5c 74 77 |arrow(#1|,#2){\tw|
|00001040| 69 73 74 79 61 72 72 6f | 77 67 65 6e 28 23 31 2c |istyarro|wgen(#1,|
|00001050| 23 32 2c 32 2c 5c 76 65 | 63 74 6f 72 29 7d 0a 5c |#2,2,\ve|ctor)}.\|
|00001060| 64 65 66 5c 74 77 69 73 | 74 79 61 72 72 6f 77 72 |def\twis|tyarrowr|
|00001070| 61 64 28 23 31 2c 23 32 | 2c 23 33 29 7b 5c 74 77 |ad(#1,#2|,#3){\tw|
|00001080| 69 73 74 79 61 72 72 6f | 77 67 65 6e 28 23 31 2c |istyarro|wgen(#1,|
|00001090| 23 32 2c 23 33 2c 5c 76 | 65 63 74 6f 72 29 7d 0a |#2,#3,\v|ector)}.|
|000010a0| 25 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |%-------|--------|
|000010b0| 2d 20 20 45 4e 44 20 4f | 46 20 4d 41 43 52 4f 53 |-  END O|F MACROS|
|000010c0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000010d0| 2d 0a 25 5c 64 6f 63 75 | 6d 65 6e 74 73 74 79 6c |-.%\docu|mentstyl|
|000010e0| 65 5b 66 6c 6f 77 63 68 | 61 72 74 5d 7b 61 72 74 |e[flowch|art]{art|
|000010f0| 69 63 6c 65 7d 0a 25 5c | 62 65 67 69 6e 7b 64 6f |icle}.%\|begin{do|
|00001100| 63 75 6d 65 6e 74 7d 0a | 25 5c 75 6e 69 74 6c 65 |cument}.|%\unitle|
|00001110| 6e 67 74 68 3d 2e 31 69 | 6e 0a 25 5c 62 65 67 69 |ngth=.1i|n.%\begi|
|00001120| 6e 7b 63 65 6e 74 65 72 | 7d 0a 25 5c 62 65 67 69 |n{center|}.%\begi|
|00001130| 6e 7b 70 69 63 74 75 72 | 65 7d 28 33 30 2c 33 30 |n{pictur|e}(30,30|
|00001140| 29 0a 25 5c 74 77 69 73 | 74 79 61 72 72 6f 77 72 |).%\twis|tyarrowr|
|00001150| 61 64 28 30 2c 30 2c 31 | 29 7b 25 0a 25 75 2c 31 |ad(0,0,1|){%.%u,1|
|00001160| 31 2c 72 2c 31 31 2c 64 | 2c 31 30 2c 6c 2c 31 30 |1,r,11,d|,10,l,10|
|00001170| 2c 25 0a 25 75 2c 31 31 | 2c 72 2c 31 31 2c 64 2c |,%.%u,11|,r,11,d,|
|00001180| 31 30 2c 6c 2c 31 30 2c | 25 0a 25 75 2c 31 31 2c |10,l,10,|%.%u,11,|
|00001190| 72 2c 31 31 2c 64 2c 31 | 30 2c 6c 2c 31 30 2c 25 |r,11,d,1|0,l,10,%|
|000011a0| 0a 25 75 2c 31 31 2c 72 | 2c 31 31 2c 64 2c 31 30 |.%u,11,r|,11,d,10|
|000011b0| 2c 6c 2c 31 30 2c 25 0a | 25 75 2c 31 31 2c 72 2c |,l,10,%.|%u,11,r,|
|000011c0| 31 31 2c 64 2c 31 30 2c | 6c 2c 31 30 2c 25 0a 25 |11,d,10,|l,10,%.%|
|000011d0| 75 2c 31 31 2c 72 2c 31 | 31 2c 64 2c 31 30 2c 6c |u,11,r,1|1,d,10,l|
|000011e0| 2c 31 30 2c 25 0a 25 75 | 2c 31 31 2c 72 2c 31 31 |,10,%.%u|,11,r,11|
|000011f0| 2c 64 2c 31 30 2c 6c 2c | 31 30 2c 25 0a 25 75 2c |,d,10,l,|10,%.%u,|
|00001200| 31 31 2c 72 2c 31 31 2c | 64 2c 31 30 2c 6c 2c 31 |11,r,11,|d,10,l,1|
|00001210| 30 2c 25 0a 25 75 2c 31 | 31 2c 72 2c 31 31 2c 64 |0,%.%u,1|1,r,11,d|
|00001220| 2c 31 30 2c 6c 2c 31 30 | 2c 25 0a 25 75 2c 31 31 |,10,l,10|,%.%u,11|
|00001230| 2c 72 2c 31 31 2c 64 2c | 31 30 2c 6c 2c 31 30 2c |,r,11,d,|10,l,10,|
|00001240| 25 0a 25 75 2c 31 31 2c | 72 2c 31 31 2c 64 2c 31 |%.%u,11,|r,11,d,1|
|00001250| 30 2c 6c 2c 31 30 2c 25 | 0a 25 75 2c 31 31 2c 72 |0,l,10,%|.%u,11,r|
|00001260| 2c 31 31 2c 64 2c 31 30 | 2c 6c 2c 31 30 2c 25 0a |,11,d,10|,l,10,%.|
|00001270| 25 75 2c 31 31 2c 72 2c | 31 31 2c 64 2c 31 30 2c |%u,11,r,|11,d,10,|
|00001280| 6c 2c 31 30 2c 25 0a 25 | 75 2c 31 31 2c 72 2c 31 |l,10,%.%|u,11,r,1|
|00001290| 31 2c 64 2c 31 30 2c 6c | 2c 31 30 2c 25 0a 25 75 |1,d,10,l|,10,%.%u|
|000012a0| 2c 31 31 2c 72 2c 31 31 | 2c 64 2c 31 30 2c 6c 2c |,11,r,11|,d,10,l,|
|000012b0| 31 30 2c 25 0a 25 75 2c | 31 31 2c 72 2c 31 31 2c |10,%.%u,|11,r,11,|
|000012c0| 64 2c 31 30 2c 6c 2c 31 | 30 2c 25 0a 25 75 2c 31 |d,10,l,1|0,%.%u,1|
|000012d0| 31 2c 72 2c 31 31 2c 64 | 2c 31 30 2c 6c 2c 31 30 |1,r,11,d|,10,l,10|
|000012e0| 2c 25 0a 25 75 2c 31 31 | 2c 72 2c 31 31 2c 64 2c |,%.%u,11|,r,11,d,|
|000012f0| 31 30 2c 6c 2c 31 30 2c | 25 0a 25 75 2c 31 31 7d |10,l,10,|%.%u,11}|
|00001300| 0a 25 5c 65 6e 64 7b 70 | 69 63 74 75 72 65 7d 0a |.%\end{p|icture}.|
|00001310| 25 5c 65 6e 64 7b 63 65 | 6e 74 65 72 7d 0a 25 5c |%\end{ce|nter}.%\|
|00001320| 65 6e 64 7b 64 6f 63 75 | 6d 65 6e 74 7d 0a       |end{docu|ment}.  |
+--------+-------------------------+-------------------------+--------+--------+